home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / SHARED.DIR / 00102_Script_BLACK OUT SCREEN
Text File  |  1996-02-11  |  586b  |  15 lines
  1. -- -----------------------------------------------------------
  2. -- Handler blackOutScreen sets screen behind the director movie
  3. -- to black.
  4.  
  5. on blackOutScreen
  6.   global blackScreenObj
  7.   if (the machineType <> 256) and voidp(blackScreenObj) then
  8.     -- mac and hasn't been done already. the second test allows the author to
  9.     -- keep initializing the program without getting the error message that
  10.     -- the object already exists.
  11.     openXlib the pathName & "LEOWINMV:XOBJS:Backdrop XObj"
  12.     put backdrop(mNew) into blackScreenObj
  13.     blackScreenObj(mShow)
  14.   end if
  15. end